SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TXMVTO_CNTB_U01]    
/*-------------------------------------------------------------------*/              
/*----- Empresa           : OFISIS S.A.                          ----*/              
/*----- Cliente           : OFISIS S.A.                          ----*/              
/*----- Sistema           : Contabilidad                         ----*/              
/*----- Modulo            : Empresa                              ----*/              
/*----- Programa          : Mantenimiento de Vouchers            ----*/              
/*----- Nombre            : SP_TXMVTO_CNTB_U01                   ----*/              
/*----- Script            : TXMVTO_CNTB                          ----*/              
/*----- Desarrollado por  : Israel Estrada Polanco               ----*/              
/*----- Fecha             : 04/07/1997                           ----*/              
/*----- Base de Datos     : MS SQL Server                        ----*/              
/*----- Version BD        : 6.5                                  ----*/              
/*-------------------------------------------------------------------*/              
/*-------------------------------------------------------------------*/            
/*----- Modificado 1 por : percy garcia                          ----*/            
/*----- Fecha Modifica   : 05/06/2004                            ----*/            
/*----- Detalle Modifica : usuario creacion y modif              ----*/            
/*-------------------------------------------------------------------*/            
/*-------------------------------------------------------------------*/              
/*----- Modificado 2 por : percy garcia                          ----*/              
/*----- Fecha Modifica   : 04/09/2006                            ----*/              
/*----- Detalle Modifica : SE AUMENTO NUEVO CAMPO FECHA DE PAGO  ----*/              
/*-------------------------------------------------------------------*/              
/*-------------------------------------------------------------------*/              
/*----- Drop proc SP_TXMVTO_CNTB_U01                             ----*/              
/*----- Grant all on SP_TXMVTO_CNTB_U01 to PUBLIC                ----*/              
/*----- SP_TXMVTO_CNTB_U01                                       ----*/              
/*-------------------------------------------------------------------*/           
As         
Declare           
              
@ISCO_EMPR   TD_VC_002,            
@ISCO_USUA   TD_VC_008,          
@IDFE_USUA   TD_DT_001,          
@INNU_CNTB_EMPR   TD_IN_001_CONT,              
@ISCO_UNID_CNTB   TD_VC_003,               
@ISCO_OPRC_CNTB   TD_VC_003,              
@INNU_ANNO   TD_IN_004_ANNO,              
@INNU_MESE   TD_IN_002_MESE,              
@ISNU_ASTO   TD_VC_010,              
@INNU_SECU   TD_IN_002,              
@IDFE_ASTO_CNTB   TD_DT_001,              
@ISCO_CNTA_EMPR   TD_VC_020_CNTA,               
@ISTI_AUXI_EMPR   TD_VC_001,              
@ISCO_AUXI_EMPR   TD_VC_020,              
@ISTI_DOCU   TD_VC_003,              
@ISNU_DOCU   TD_VC_020,               
@IDFE_DOCU   TD_DT_001,               
@IDFE_DOCU_VENC   TD_DT_001,               
@IDFE_PAGO   TD_DT_001,               
@ISTI_OPER   TD_VC_003,              
@ISCO_MONE   TD_VC_003,               
@ISTI_CAMB   TD_VC_003,               
@INFA_CAMB   TD_NU_015_006,          
@INFA_CAMB_DIAR   TD_NU_015_006,          
@INIM_MVTO_ORIG   TD_NU_016_004,               
@ISCO_ORDE_SERV   TD_VC_020,              
@ISDE_GLOS   TD_VC_100,              
@ISTI_DOCU_REFE   TD_VC_003,              
@ISNU_DOCU_REFE   TD_VC_020,              
@IDFE_DOCU_REFE   TD_DT_001,              
@ISNO_GIRA   TD_VC_100,              
@INIM_MVTO_RETE   TD_NU_016_004,              
@INIM_MVTO_CNTB   TD_NU_016_004,             
@ISTI_DOCU_DETR TD_VC_003,             
@ISNU_DOCU_DETR TD_VC_020,             
@IDFE_DOCU_DETR TD_DT_001,            
@IDFE_INIC_PRES TD_DT_001,        
@IDFE_FINA_PRES TD_DT_001,      
@ISCO_MEPA TD_VC_003,        
@IDFE_PROG_CHEQ TD_DT_001,      
@IDFE_ENTR_CHEQ TD_DT_001,          
@ISST_EXON_INAF TD_VC_003,    
@ISST_COMP TD_VC_003  
--WITH ENCRYPTION          
        
        
Select  Top 1        
@ISCO_EMPR = CO_EMPR,            
@ISCO_USUA = CO_USUA,          
@IDFE_USUA = FE_USUA,          
@INNU_CNTB_EMPR = NU_CNTB_EMPR,              
@ISCO_UNID_CNTB = CO_UNID_CNTB,               
@ISCO_OPRC_CNTB = CO_OPRC_CNTB,              
@INNU_ANNO = NU_ANNO,              
@INNU_MESE = NU_MESE,              
@ISNU_ASTO = NU_ASTO,              
@INNU_SECU = NU_SECU,              
@IDFE_ASTO_CNTB = FE_ASTO_CNTB,              
@ISCO_CNTA_EMPR = CO_CNTA_EMPR,               
@ISTI_AUXI_EMPR = TI_AUXI_EMPR,              
@ISCO_AUXI_EMPR = CO_AUXI_EMPR,              
@ISTI_DOCU = TI_DOCU,              
@ISNU_DOCU = NU_DOCU,               
@IDFE_DOCU = FE_DOCU,               
@IDFE_DOCU_VENC = FE_DOCU_VENC,               
@IDFE_PAGO = FE_PAGO,               
@ISTI_OPER = TI_OPER,              
@ISCO_MONE = CO_MONE,               
@ISTI_CAMB = TI_CAMB,               
@INFA_CAMB = FA_CAMB,          
@INFA_CAMB_DIAR = FA_CAMB_DIAR,          
@INIM_MVTO_ORIG = IM_MVTO_ORIG,               
@ISCO_ORDE_SERV = CO_ORDE_SERV,              
@ISDE_GLOS = DE_GLOS,              
@ISTI_DOCU_REFE = TI_DOCU_REFE,              
@ISNU_DOCU_REFE = NU_DOCU_REFE,              
@IDFE_DOCU_REFE = FE_DOCU_REFE,              
@ISNO_GIRA = NO_GIRA,              
@INIM_MVTO_RETE = IM_MVTO_RETE,              
@INIM_MVTO_CNTB = IM_MVTO_CNTB,             
@ISTI_DOCU_DETR = TI_DOCU_DETR,             
@ISNU_DOCU_DETR = NU_DOCU_DETR,             
@IDFE_DOCU_DETR = FE_DOCU_DETR,        
@ISCO_MEPA = CO_MEPA,    
@IDFE_PROG_CHEQ = FE_PROG_CHEQ,      
@IDFE_ENTR_CHEQ = FE_ENTR_CHEQ,   
@ISST_EXON_INAF = ST_EXON_INAF,     
@ISST_COMP = ST_COMP   
From #TWPARA_EMAA        
             
 Begin Transaction SP_TXMVTO_CNTB_U01              
 If @ISTI_AUXI_EMPR = ''              
  Select @ISTI_AUXI_EMPR = NULL              
 If @ISCO_AUXI_EMPR = ''              
  Select @ISCO_AUXI_EMPR = NULL              
 If @ISTI_DOCU = ''              
  Select @ISTI_DOCU = NULL              
 If @ISNU_DOCU = ''              
  Select @ISNU_DOCU = NULL              
 If @IDFE_DOCU = ''              
  Select @IDFE_DOCU = NULL              
 If @ISCO_ORDE_SERV IS NULL or @ISCO_ORDE_SERV = ''              
  Select @ISCO_ORDE_SERV = NULL      
 If @ISCO_MEPA = ''              
  Select @ISCO_MEPA = NULL       
 If @ISST_EXON_INAF = ''        
  Select @ISST_EXON_INAF = NULL        
 If @ISST_COMP = ''        
  Select @ISST_COMP = NULL        
          
 Update TXMVTO_CNTB             
 set FE_ASTO_CNTB = @IDFE_ASTO_CNTB,               
  CO_CNTA_EMPR = @ISCO_CNTA_EMPR,               
  TI_AUXI_EMPR = @ISTI_AUXI_EMPR,               
  CO_AUXI_EMPR = @ISCO_AUXI_EMPR,               
  TI_DOCU      = @ISTI_DOCU,               
  NU_DOCU      = @ISNU_DOCU,               
  FE_DOCU      = @IDFE_DOCU,              
  FE_DOCU_VENC = @IDFE_DOCU_VENC,               
  FE_PAGO      = @IDFE_PAGO,        
  TI_CAMB      = @ISTI_CAMB,               
  CO_MONE      = @ISCO_MONE,               
  FA_CAMB      = @INFA_CAMB,              
  FA_CAMB_DIAR = @INFA_CAMB_DIAR,              
  TI_OPER      = @ISTI_OPER,               
  IM_MVTO_ORIG = @INIM_MVTO_ORIG,              
  IM_MVTO_CNTB = @INIM_MVTO_CNTB,               
  DE_GLOS     = @ISDE_GLOS,               
  TI_DOCU_REFE = @ISTI_DOCU_REFE,              
  NU_DOCU_REFE = @ISNU_DOCU_REFE,              
  FE_DOCU_REFE = @IDFE_DOCU_REFE,              
  NO_GIRA      = @ISNO_GIRA,      
  FE_PROG_CHEQ = @IDFE_PROG_CHEQ,    
  FE_ENTR_CHEQ = @IDFE_ENTR_CHEQ,    
  CO_ORDE_SERV = @ISCO_ORDE_SERV,              
  IM_MVTO_RETE = @INIM_MVTO_RETE,              
  TI_DOCU_DETR = @ISTI_DOCU_DETR,              
  NU_DOCU_DETR = @ISNU_DOCU_DETR,              
  FE_DOCU_DETR = @IDFE_DOCU_DETR,            
  CO_USUA_MODI = @ISCO_USUA,              
  FE_USUA_MODI = @IDFE_USUA,      
  CO_MEPA      = @ISCO_MEPA,   
  ST_EXON_INAF = @ISST_EXON_INAF,   
  ST_COMP = @ISST_COMP  
 Where CO_EMPR      = @ISCO_EMPR              
 and NU_CNTB_EMPR = @INNU_CNTB_EMPR              
 and CO_UNID_CNTB = @ISCO_UNID_CNTB              
 and CO_OPRC_CNTB = @ISCO_OPRC_CNTB               
 and NU_ANNO      = @INNU_ANNO              
 and NU_MESE      = @INNU_MESE              
 and NU_ASTO      = @ISNU_ASTO              
 and NU_SECU      = @INNU_SECU              
                 
  If @@ERROR != 0              
   Begin              
     Rollback Tran              
     Return              
   End   
  
Commit Tran              
Return              
/*------------------------------- Fin -----------------------------------*/            

GO
